home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 9 / Tiger_Disk_009_19xx_Tiger-Crew-Disk_de_Side_B.d64 / keine chance! (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  56 lines
  1. 10 poke53280,0:poke53281,0
  2. 20 printchr$(147)
  3. 30 print"[156]  spielregel                    <j/n>"
  4. 32 poke198,0:wait198,1:geta$
  5. 34 if a$=chr$(74)then1000
  6. 36 if a$=chr$(78)then50
  7. 50 goto520
  8. 60 x$="[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]":
  9. 65 y$="[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]":
  10. 70 c$="  ":s=31:h=3
  11. 80 gosub 110
  12. 100 h=0:return
  13. 110 poke53265,11:print"[147]";
  14. 140 print"            keine chance! [146]":print:printtab(5)x$;
  15. 150 fori=6to0step-1
  16. 160 print:printtab(5)"[180] ";:forj=1to5
  17. 170 y=i*5+j
  18. 200 b$=" [209]"
  19. 210 ify<=sthen230
  20. 220 b$="  "
  21. 230 printb$;" [170] ";
  22. 240 nextj:print:nexti
  23. 260 printtab(5)y$:poke53265,27
  24. 270 ifh=3then350
  25. 280 printd$;"   genommen =";k;"  [209] "
  26. 290 ifh=2 then350
  27. 300 print" [154]   jetzt sind's =";s;" [209]"
  28. 310 ifh=0 then 350
  29. 330 fori=1to1500:nexti
  30. 350 return
  31. 360 print"[150]  wieviel [209] willst du haben?  ";
  32. 370 poke19,64:input"[192][192]>[152] ";k
  33. 380 if (k<1)or (k>4) then print:print"[145][145][145]":goto360
  34. 390 k=int(k):s=s-k:h=1
  35. 400 d$="[158]du [146]  ":return
  36. 440 k=5-k
  37. 450 s=s-k:h=0
  38. 470 d$="[158]ich[146]  "
  39. 480 if s<>1 then 510
  40. 490 h=2
  41. 500 c$="du hast den letzten [209] - ich bin sieger!"
  42. 510 return
  43. 520 gosub60
  44. 530 gosub 360:gosub110:gosub440:gosub110
  45. 570 if h<>2 then 530
  46. 580 printc$
  47. 590 end:goto50
  48. 1000 print"[147]   [152][218]gegen mich hast du keine chance[218]"
  49. 1010 print"   du nimmst mind. 1 [209], max. 4 [209] weg  "
  50. 1020 print"     danach bin ich an der reihe!!"
  51. 1030 print"[149]    wer den letzten [209] nehmen muss,"
  52. 1040 print"             hat verloren!"
  53. 1045 print"========================================"
  54. 1050 print"[151]       druecke bitte eine taste."
  55. 1060 wait 197,63:goto 50
  56.